#! /usr/bin/perl -w
use strict;
use lib qw(.);
use Simcomp::Random;
use Data::Dumper;


my $sub = Simcomp::Random::getDistribution("constante");
my $i = &$sub( 5 );

print $i, "\n";
